plot(
  x = pop_ts,                   # X轴：时间序列的时间（年份），Y轴：总人口（默认）
  type = "p",                   # 图形类型："p"=散点图（point）
  main = "1978-2023年总人口时间序列散点图",  # 图表标题
  xlab = "年份",                # X轴标签（时间）
  ylab = "总人口（人）",        # Y轴标签（总人口）
  col = "#1E90FF",              # 散点颜色（
  pch = 16,                     # 散点形状
  cex = 1.1,                    # 散点大小：比默认大10%，更易观察
  lwd = 1                       # 散点边框宽度
)
